{ ETP Link Long sljantal 170222 }

i1(
cell=scrpar(32)
include=scrpar(30)
auto_select=gt(getgvar(add(cell,1000)),0)
best_match=getgvar(add(cell,3000))
keep_paper=or(and(eqv(best_match,crcid()),and(include,auto_select)),not(auto_select))

replikera=eqv(scrpar(21),0)
mlantal=if(keep_paper,if(gt(getgvar(cell),0),getgvar(cell),0),0)
innehav=portfolio(v)
underml=le(innehav,mlantal)
slutantal1=if(underml,0,sub(innehav,if(replikera,mlantal,0)))
add(0,slutantal1)
)